class APP
feature
    INIT
    do
    end
end

class A
feature
    foo : INTEGER
end

class B
inherit A
    rename foo as Afoo
feature
    foo : INTEGER
end

class C
inherit B
    rename foo As Bfoo
feature
    foo : INTEGER
    
    
    test()
    do
        Current.Bfoo:=5
    end
end